#!/usr/bin/perl
 
# read all files passed by command line as a arguments.
while (<>) {
    print;
} 